*Black, Owens, Wedeking & Wohlfarth
*Chapter 11 Replication


use "Ch-11_Data.dta"


*Table 11.1

*Model 1
logit libVote c.mood5216##c.consciPI openPI extraPI agreePI neuroPI, robust

*Model 2
logit libVote c.mood5216##c.consciPI openPI extraPI agreePI neuroPI segalCover, robust

*Model 3
logit libVote c.mood5216##c.consciPI openPI extraPI agreePI neuroPI segalCover liberalSGUS_continuous presidentCS house senate lowerCourtLib i.issueArea, robust

*Figure 11.2(a)
quietly margins, at(mood5216=(53(2)72) consciPI=(-1.72 0.90)) 
marginsplot, ylabel(.4(.05).65) plotopt(msymbol(none)) noci xtitle(Public Mood) ytitle(Predicted Probability of a Liberal Vote) title("") scheme(s1mono) legend(order(1 "Low Conscientiousness" 2 "High Conscientiousness"))

*Figure 11.2(b)
quietly margins, dydx(mood5216) at(consciPI=(-3.7(.1)1.2))
marginsplot, xlabel(-3.7(.5)1.2) ylabel(-.006(.003).006) plotopt(msymbol(none)) ciopts(color(gs10)) ylin(0) recastci(rarea) level(90) xtitle(Supreme Court Justice Conscientiousness) ytitle(Average Marginal Effect of Public Mood) title("") scheme(s1mono)  

